Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/setup_ut/jwpcstp2/path.frm

Text File | 1995-01-07 | 5KB | 168 lines

VERSION 2.00
Begin Form PathDlg
   BorderStyle     =   1  'Fixed Single
   Caption         =   "PathDlg"
   ClientHeight    =   2235
   ClientLeft      =   1320
   ClientTop       =   2265
   ClientWidth     =   6825
   ControlBox      =   0   'False
   Height          =   2640
   Left            =   1260
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   540
   ScaleWidth      =   540
   Top             =   1920
   Width           =   6945
   Begin SSPanel Panel3D1
      BevelWidth      =   5
      Height          =   2265
      Left            =   0
      TabIndex        =   6
      Top             =   0
      Width           =   6855
      Begin CommandButton Command3
         Caption         =   "&About"
         Height          =   555
         Left            =   5370
         TabIndex        =   11
         Top             =   1650
         Width           =   1425
      End
      Begin CommandButton Command2
         Caption         =   "&Exit Setup"
         Height          =   375
         Left            =   3480
         TabIndex        =   10
         Top             =   1710
         Width           =   1575
      End
      Begin CommandButton Command1
         Caption         =   "&Continue"
         Default         =   -1  'True
         Height          =   375
         Left            =   1320
         TabIndex        =   9
         Top             =   1710
         Width           =   1575
      End
      Begin TextBox Text1
         Height          =   375
         Left            =   2520
         TabIndex        =   8
         Top             =   750
         Width           =   3735
      End
      Begin PictureBox Picture1
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   480
         Left            =   360
         Picture         =   PATH.FRX:0000
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   7
         TabStop         =   0   'False
         Top             =   150
         Width           =   480
      End
      Begin Label outPath
         BackStyle       =   0  'Transparent
         Caption         =   "outPath"
         Height          =   255
         Left            =   120
         TabIndex        =   0
         Top             =   1590
         Visible         =   0   'False
         Width           =   855
      End
      Begin Label Label3
         BackStyle       =   0  'Transparent
         Caption         =   "To quit Setup, choose the Exit button."
         Height          =   255
         Left            =   1320
         TabIndex        =   1
         Top             =   1230
         Width           =   3615
      End
      Begin Label outButton
         BackStyle       =   0  'Transparent
         Caption         =   "outButton"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   1230
         Visible         =   0   'False
         Width           =   975
      End
      Begin Label inDrive
         BackStyle       =   0  'Transparent
         Caption         =   "inDrive"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   870
         Visible         =   0   'False
         Width           =   735
      End
      Begin Label Label2
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Install to:"
         Height          =   255
         Left            =   840
         TabIndex        =   4
         Top             =   810
         Width           =   1575
      End
      Begin Label Label1
         BackStyle       =   0  'Transparent
         Height          =   495
         Left            =   1320
         TabIndex        =   5
         Top             =   150
         Width           =   5415
      End
   End
End

Dim DestPath$

Sub Command1_Click ()
    DestPath$ = text1.Text
    inDrive.Tag = Left$(DestPath$, 2)

    '-------------------------------------------
    ' The IsValidPath function not only returns
    ' True/False as to whether or not it is a valid
    ' path, but also reformats the path variable
    ' into the format, "X:\dir\dir\dir\"
    '-------------------------------------------
    If IsValidPath(DestPath$, (inDrive.Tag)) Then
        OutPath.Tag = DestPath$
        OutButton.Tag = "continue"
        PathDlg.Hide
    Else
        MsgBox "Not a valid path.", 48, PathDlg.Caption
        text1.SetFocus
        text1.SelStart = 0
        text1.SelLength = Len(text1.Text)
    End If
End Sub

Sub Command2_Click ()
    OutButton.Tag = "exit"
    PathDlg.Hide
End Sub

Sub Command3_Click ()
form1.Show 1


End Sub